{  ACMP.RU
   Problem 5. Text of problem: http://acmp.ru/?main=task&id_task=5
   Verdict: Accepted
}

var n,i,ca,cb,k:longint; a,b:array[1..101] of integer;
begin
reset(input,'input.txt');
rewrite(output,'output.txt');
readln(n);
fillchar(a,sizeof(a),0);
fillchar(b,sizeof(b),0);
ca:=0;
cb:=0;
for i:=1 to n do begin
	read(k);
	if odd(k) then begin
		inc(cb);
		b[cb]:=k;
	end else begin
		inc(ca);
		a[ca]:=k;
	end;	
end;
for i:=1 to cb do write(b[i],' ');
for i:=1 to ca do write(a[i],' ');
if ca>=cb then writeln('YES') else writeln('NO');
end.